function Lnko(A: Positive, B: Positive) return Positive is
begin
   while A/=B loop
      if A<B then
         B:=B-A;
      else
         A:=A-B;
         
